home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-04 / 422mods.zip / ZARCON03.422 < prev    next >
Text File  |  1993-02-20  |  6KB  |  208 lines
  1. Conan's fix for previous version with help of Zarquon...
  2. Conan #1 @7304
  3. Tue Feb 16 15:12:25 1993
  4. ┌──────────────────────────────────────────────────────────────────────┐
  5. │Title: ZARCON03.MOD                                                   │
  6. │Authors: Conan and Zarquon                                            │
  7. │Version: 4.22                                                         │
  8. │Difficulty: █░░░░░░░░░                                                │
  9. │Description: Fixed version of CONAN002.MOD...the previous version had │
  10. │a little problem with a FEEDBACK void that I accidentally left in there.
  11. └──────────────────────────────────────────────────────────────────────┘
  12.  
  13. Step One
  14. ~~~~ ~~~~
  15. Please backup your source. I take no responsiblity whatsoever for any damage
  16. that this mod may make onto your system.
  17. (I seriously doubt that'll happen)
  18. PKZIP SOURCE *.C *.H *.MAK
  19.  
  20.  
  21. Step Two
  22. ~~~~ ~~~
  23. This mod is simple block reading....make sure your source is backed up
  24. in case this doesn't work. (It may not but most likely will)
  25. But here we go....
  26. Search for this chunk of void in BBSUTL.C:
  27.  
  28. void reqchat(void)
  29. {
  30.   int ok;
  31.   char s[81];
  32.  
  33.   nl();
  34.   nl();
  35.   ok=sysop2();
  36.   if (restrict_chat & thisuser.restrict)
  37.     ok=0;
  38.   if (ok) {
  39.     if (chatcall) {
  40.       chatcall=0;
  41.       pl(get_string(597));
  42.       topscreen();
  43.     } else {
  44.       prt(2,get_string(598));
  45.       inputl(s,70);
  46.       if (s[0]) {
  47.         chatcall=1;
  48.         sprintf(chatreason,"%s: %s",get_stringx(1,33), s);
  49.         nl();
  50.         sysoplog(chatreason);
  51.         for (ok=strlen(chatreason); ok<80; ok++)
  52.           chatreason[ok]=32;
  53.         chatreason[80]=0;
  54.         topscreen();
  55.         pl(get_string(599));
  56.         nl();
  57.       }
  58.     }
  59.   } else {
  60.     pl(get_string(600));
  61.     nl();
  62.     pl(get_string(601));
  63.     strcpy(irt,get_stringx(1,34));
  64.     irt_name[0]=0;
  65.     imail(1,0);
  66.   }
  67. }
  68.  
  69.  
  70. ....and replace that chunk with this one.......
  71.  
  72. /* REPLACE YOUR OLD REQCHAT VOID WITH THIS ONE */
  73. /* START BLOCK READ HERE */
  74.  
  75. void reqchat(void)
  76. {
  77.   int ok;
  78.   char s[81];
  79.  
  80.   nl();
  81.   nl();
  82.   ok=sysop2();
  83.   if (restrict_chat & thisuser.restrict)
  84.     ok=0;
  85.   if (ok) {
  86.     if (chatcall) {
  87.       chatcall=0;
  88.       pl("Chat call turned off.");
  89.       topscreen();
  90.     } else {
  91.       prt(7,"Chat Reason: ");
  92.       inputl(s,70);
  93.       if (s[0]) {
  94.         chatcall=1;
  95.         sprintf(chatreason,"Chat: %s",s);
  96.         nl();
  97.         sysoplog(chatreason);
  98.         for (ok=strlen(chatreason); ok<80; ok++)
  99.           chatreason[ok]=32;
  100.         chatreason[80]=0;
  101.         topscreen();
  102.         chatcall=0;
  103.         nl();
  104.         page_reqs++;
  105.         if (page_reqs <= 5) {
  106.         pl("Now Getting SysOp  ");
  107.         nl();
  108.         nl();
  109.         pl("PLEASE HOLD");
  110.         system("VPLAY /Q TEST"); /*!!!!NOTE ONE!!!!*/
  111.         topscreen();
  112.         } else {
  113.         nl();
  114.         prt(2,"The sysop appears to be busy please use feedback instead.");
  115.         nl();
  116.         strcpy(irt,"Tried Paging.");
  117.         imail(1,0);
  118.         }
  119.         if (page_reqs >= 7 ) {  /* This little section will hangup on*/
  120.         nl();                  /* the user if they constantly hit 'C'*/
  121.         nl();                  /* in hopes of driving you away*/
  122.         prt(3,"See ya later.");/* from whatever you're doing to talk*/
  123.         hangup=1;              /* to them. Change the 7 to whatever */
  124.         }
  125.  
  126.      /* pl("Chat call turned ON.");*/
  127.         nl();
  128.       }
  129.     }
  130.   } else {
  131.    
  132.    pl(get_string(600));               /* This part fixed for 4.22   */
  133.     nl();                             /* from the other mod that    */
  134.     pl(get_string(601));              /* had the feedback menu in it */
  135.     strcpy(irt,get_stringx(1,34));
  136.     irt_name[0]=0;
  137.     imail(1,0);
  138.  
  139.   }
  140. }
  141.  
  142.  
  143. Step Three
  144. ~~~~ ~~~~~
  145. At the top of BBSUTL.C search for this:
  146.  
  147. #pragma hdrstop
  148.  
  149.  
  150. and right underneath it add this:
  151.  
  152.  
  153. int page_reqs;
  154.  
  155. NOTE ONE:
  156. ~~~~ ~~~~
  157. Where it says VPLAY /Q TEST I have it set in MY source to do this:
  158. PLAYCMF /Q RUSH.CMF
  159. that's of course only for soundblaster....and if you want to have
  160. a .CMF page you, make sure SBFMDRV.COM is loaded before you load your BBS
  161. (this may cause a memory problem for you....but i have 4 megs of RAM)
  162. I would suggest a .VOC which doesn't take up memory.
  163. I don't know what sound player you would use for ADLIB...
  164.  
  165. Step Four
  166. ~~~~ ~~~~
  167. Of course, this mod is only for 4.22 but with a little fixing up I'm sure
  168. it could be for 4.21a and down if you really wanted it to. I appreciate
  169. greatly the help of Zarquon (CONDITION: Critical in Rhode Island) who 
  170. noticed my errors in the previous version of this mod that I released...
  171. (the reason I named this mod ZARCON03..Zarquon and Conan)  anyways..if 
  172. you need some help with this mod just e-mail me on IceNet 1@7304 
  173. or if you'd like to e-mail Zarquon get him at 1@4106 on WWIVNet 
  174.  
  175.  
  176. 1C7ona1N
  177. 
  178. 2
  179. 3C│C│
  180. 4C│C│
  181. 5C────┼
  182. 6AC─────────
  183. 7AC──────·· ·  ··· 
  184. 8AC·   ··───────
  185. 9AC┼───
  186. :C│ SysO
  187. ;ACp: Cona
  188. <ACnCWW
  189. =ACiV v4.2
  190. >AC2 │
  191. ?C│ 3oo/12o
  192. @ACo/24oo/9
  193. AAC6ooC7o
  194. BAC3·25
  195. CAC5·66o
  196. DAC6 │
  197. EC│ @7304 of
  198. FAC IceNet
  199. GACC@473 
  200. HACCOM£i
  201. IACnk │
  202. JC│CP
  203. KACerfect Wor
  204. LACld BBS
  205. MACC│
  206. N
  207. O
  208.